home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / mac / 3-Presentations / Markets / Education / HyperCard In Education / Flexible Writing Planner / background_2602.txt < prev    next >
Text File  |  1990-04-02  |  7KB  |  305 lines
  1. -- background: 2602 from stack: in
  2. -- bmap block id: 6468
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: planners
  6. ----- HyperTalk script -----
  7. --on arrowKey
  8. --end arrowKey
  9.  
  10. on openBackground
  11.   unHilite
  12. end openBackground
  13.  
  14. on closeCard
  15.   if " ON" is in the short name of card button id 32 of card "student Data" then collectData
  16.   else exit closeCard
  17. end closeCard
  18.  
  19. on openCard
  20.   global begSec
  21.   put the seconds into begSec
  22. end openCard
  23.  
  24. on unhilite
  25.   Repeat with i = 1 to 5
  26.     set hilite of background button i to false
  27.   end repeat
  28. end unhilite
  29.  
  30. on collectData
  31.   global begSec,c,cardName,timeData
  32.   put the seconds into endSec
  33.   subtract begSec from endSec
  34.   add 1 to c
  35.   put endSec into timeData
  36.   put the short name of this card into cardName
  37.   if cardName is not "pausing" then
  38.     put timeData&return after card field "working seconds" of card "student data"
  39.   else
  40.     get the number of lines of card field "working seconds" of card "student data"
  41.     put timeData into line (it+1) of card field "pausing seconds" of card "student data"
  42.     put return after card field "working seconds" of card "student data"
  43.   end if
  44.   put cardName&return after card field "Card Names" of card "student data"
  45.   --put timeData&&cardName
  46. end collectData
  47.  
  48.  
  49.  
  50.  
  51.  
  52. -- part 10 (button)
  53. -- low flags: 00
  54. -- high flags: 8001
  55. -- rect: left=40 top=296 right=342 bottom=121
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 1 / 1
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Audience/Purpose
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   set cursor to watch
  67.   global lastBtn
  68.   set hilite of target to true
  69.   if lastBtn is not empty
  70.   then set hilite of bkgnd button lastBtn to false
  71.   visual zoom open
  72.   go to card the short name of target
  73.   put the short name of target into lastBtn
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 11 (button)
  79. -- low flags: 00
  80. -- high flags: 8001
  81. -- rect: left=122 top=296 right=342 bottom=172
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 7012 / 7012
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: List Ideas
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   set cursor to watch
  93.   global lastBtn
  94.   set hilite of target to true
  95.   if lastBtn is not empty
  96.   then set hilite of bkgnd button lastBtn to false
  97.   visual zoom open
  98.   go to card the short name of target
  99.   put the short name of target into lastBtn
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 12 (button)
  105. -- low flags: 00
  106. -- high flags: 8001
  107. -- rect: left=174 top=296 right=342 bottom=245
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 20186 / 20186
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Alike/Different
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   set cursor to watch
  119.   global lastBtn
  120.   set hilite of target to true
  121.   if lastBtn is not empty
  122.   then set hilite of bkgnd button lastBtn to false
  123.   visual zoom open
  124.   go to card the short name of target
  125.   put the short name of target into lastBtn
  126. end mouseUp
  127.  
  128.  
  129.  
  130. -- part 13 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=247 top=296 right=342 bottom=313
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: Organize Ideas
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   set cursor to watch
  145.   global lastBtn
  146.   set hilite of target to true
  147.   if lastBtn is not empty
  148.   then set hilite of bkgnd button lastBtn to false
  149.   visual zoom open
  150.   go to card the short name of target
  151.   put the short name of target into lastBtn
  152. end mouseUp
  153.  
  154.  
  155.  
  156. -- part 14 (button)
  157. -- low flags: 00
  158. -- high flags: 8001
  159. -- rect: left=315 top=296 right=342 bottom=359
  160. -- title width / last selected line: 0
  161. -- icon id / first selected line: 1005 / 1005
  162. -- text alignment: 1
  163. -- font id: 0
  164. -- text size: 12
  165. -- style flags: 0
  166. -- line height: 16
  167. -- part name: Essay
  168. ----- HyperTalk script -----
  169. on mouseUp
  170.   set cursor to watch
  171.   global lastBtn
  172.   set hilite of target to true
  173.   if lastBtn is not empty
  174.   then set hilite of bkgnd button lastBtn to false
  175.   visual zoom open
  176.   go to card the short name of target
  177.   put the short name of target into lastBtn
  178. end mouseUp
  179.  
  180.  
  181.  
  182. -- part 15 (button)
  183. -- low flags: 00
  184. -- high flags: 2000
  185. -- rect: left=444 top=295 right=341 bottom=474
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: Pause
  194. ----- HyperTalk script -----
  195. on mouseUp
  196.   push card
  197.   put the long time into line 1 of card field "time" of card "pausing"
  198.   put the long time into line 3 of card field "time" of card "pausing"
  199.   visual dissolve
  200.   go to card "pausing"
  201. end mouseUp
  202.  
  203.  
  204.  
  205. -- part 16 (button)
  206. -- low flags: 00
  207. -- high flags: A000
  208. -- rect: left=477 top=298 right=341 bottom=512
  209. -- title width / last selected line: 0
  210. -- icon id / first selected line: 20098 / 20098
  211. -- text alignment: 1
  212. -- font id: 0
  213. -- text size: 12
  214. -- style flags: 0
  215. -- line height: 16
  216. -- part name: Home
  217. ----- HyperTalk script -----
  218. on mouseUp
  219.   visual iris close
  220.   domenu home
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 17 (field)
  226. -- low flags: 01
  227. -- high flags: 0000
  228. -- rect: left=35 top=52 right=134 bottom=482
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 0 / 0
  231. -- text alignment: 0
  232. -- font id: 3
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: 
  237.  
  238.  
  239. -- part 19 (field)
  240. -- low flags: 01
  241. -- high flags: 0004
  242. -- rect: left=318 top=17 right=44 bottom=508
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 3
  247. -- text size: 10
  248. -- style flags: 256
  249. -- line height: 11
  250. -- part name: topic
  251.  
  252.  
  253. -- part 20 (field)
  254. -- low flags: 80
  255. -- high flags: 0007
  256. -- rect: left=16 top=6 right=288 bottom=500
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 0
  260. -- font id: 3
  261. -- text size: 9
  262. -- style flags: 0
  263. -- line height: 12
  264. -- part name: print
  265.  
  266.  
  267. -- part 21 (button)
  268. -- low flags: 00
  269. -- high flags: 2000
  270. -- rect: left=414 top=295 right=342 bottom=442
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 0 / 0
  273. -- text alignment: 1
  274. -- font id: 0
  275. -- text size: 12
  276. -- style flags: 0
  277. -- line height: 16
  278. -- part name: help
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   push card
  282.   visual dissolve
  283.   go to card the short name of target
  284. end mouseUp
  285.  
  286.  
  287. -- part 23 (button)
  288. -- low flags: 00
  289. -- high flags: A002
  290. -- rect: left=16 top=319 right=340 bottom=76
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 0 / 0
  293. -- text alignment: 1
  294. -- font id: 0
  295. -- text size: 12
  296. -- style flags: 0
  297. -- line height: 16
  298. -- part name: Return
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   global returncard
  302.   go to returncard
  303. end mouseUp
  304.  
  305.